home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n20.arc / XVI_UD2.XTS < prev    next >
Text File  |  1990-10-29  |  4KB  |  206 lines
  1. ; XVI_UD2.XTS
  2. ; MagNet Utilities Down Load, Part Two
  3. ; This Script does the actual file down load.
  4. ; Rick Ayre, 5.1.90.
  5.  
  6. SCreen L kw                          ; Restore color of command line
  7.  
  8.    WAit Quiet 15                     ; Wait for your turn
  9.  
  10. LAbel FILE_1                         ; Begin down loading files
  11.  
  12.    REply "go utilit" |
  13.  
  14.    WAit for "!"
  15.    REply "4" |
  16.  
  17.    WAit string "e (example, DR.COM):"
  18.    REply @A1 |
  19.  
  20.    When "!" DO A6
  21.    
  22.    WAit string "ad this file? (Y/N)"
  23.    When -
  24.    Reply "y" |
  25.    
  26.    WAit string "> to begin transfer!"
  27.    WAit 5
  28.    Reply |
  29.  
  30.    WAit for "!"
  31.    REply "1" |
  32.  
  33.    WAit string "is complete"
  34.    RXmodem @A1
  35.    WAit quiet 30
  36.    Reply |
  37.    Wait 15
  38.    
  39. LAbel FILE_2
  40.  
  41.    IF @A2 = "" JUmp FINISHED         ; If no filename here, we're done.
  42.    REply |                           ; Signal ready for more business.
  43.  
  44.    WAit for "!"
  45.    REply "3" |
  46.  
  47.    WAit string "e (example, DR.COM):"
  48.    REply @A2 |
  49.  
  50.    WHen "!" DO A6
  51.  
  52.    WAit string "ad this file? (Y/N)"
  53.    WHen -
  54.    Reply "y" |
  55.    
  56.    WAit string "> to begin transfer!"
  57.    WAit 5
  58.    Reply |
  59.  
  60.    WAit for "!"
  61.    REply "1" |
  62.  
  63.    WAit string "is complete"
  64.    RXmodem @A2
  65.    WAit quiet 30
  66.    Reply |
  67.    Wait 15
  68.    
  69. LAbel FILE_3
  70.  
  71.    if @A3 = "" JUmp FINISHED
  72.    REply |
  73.  
  74.    WAit for "!"
  75.    REply "3" |
  76.  
  77.    WAit string "e (example, DR.COM):"
  78.    REply @A3 |
  79.  
  80.    WHen "!" DO A6
  81.  
  82.    WAit string "ad this file? (Y/N)"
  83.    When -
  84.    Reply "y" |
  85.    
  86.    WAit string "> to begin transfer!"
  87.    WAit 5
  88.    Reply |
  89.  
  90.    WAit for "!"
  91.    REply "1" |
  92.  
  93.    WAit string "is complete"
  94.    RXmodem @A3
  95.    WAit quiet 30
  96.    Reply |
  97.    Wait 15
  98.    
  99. LAbel FILE_4
  100.  
  101.    if @A4 = "" JUmp FINISHED
  102.    REply |
  103.  
  104.    WAit for "!"
  105.    REply "3" |
  106.  
  107.    WAit string "e (example, DR.COM):"
  108.    REply @A4 |
  109.  
  110.    WHen "!" DO A6
  111.  
  112.    WAit string "ad this file? (Y/N)"
  113.    WHen -
  114.    Reply "y" |
  115.    
  116.    WAit string "> to begin transfer!"
  117.    WAit 5
  118.    Reply |
  119.  
  120.    WAit for "!"
  121.    REply "1" |
  122.  
  123.    WAit string "is complete"
  124.    RXmodem @A4
  125.    WAit quiet 30
  126.    Reply |
  127.    Wait 15
  128.    
  129. LAbel FILE_5
  130.  
  131.    if @A5 = "" JUmp FINISHED
  132.    REply |
  133.  
  134.    WAit for "!"
  135.    REply "3" |
  136.  
  137.    WAit string "e (example, DR.COM):"
  138.    REply @A5 |
  139.  
  140.    WHen "!" DO A6
  141.  
  142.    WAit string "ad this file? (Y/N)"
  143.    When -
  144.    Reply "y" |
  145.    
  146.    WAit string "> to begin transfer!"
  147.    WAit 5
  148.    Reply |
  149.  
  150.    WAit for "!"
  151.    REply "1" |
  152.  
  153.    WAit string "is complete"
  154.    RXmodem @A5
  155.    WAit quiet 30
  156.    Reply |
  157.    Wait 15
  158.    
  159. LAbel FINISHED                       ; This sequence starts a count
  160.                                      ; down timer that will log you
  161.                                      ; off MagNet, after a short delay
  162.    WAit 10
  163.    Reply |
  164.  
  165. SCreen H Wb                          ; Change screen colors.
  166. CLear                                ; Clear the screen to display the message.
  167. MEssage
  168.  
  169.                   You will be logged off PC MagNet in 1 minute.
  170.                         Press ESC to end this script.
  171. .
  172.  ALarm 2 NOw                         ; Sound alarm.
  173.  WAit 150                            ; Wait 15 seconds for user to intervene.
  174. CLear                                ; Do it again.
  175. MEssage
  176.  
  177.                  You will be logged off PC MagNet in 45 seconds.
  178.                         Press ESC to end this script.
  179. .
  180.  ALarm 0 NOw
  181.  WAit 150
  182. CLear
  183. MEssage
  184.  
  185.                  You will be logged off PC MagNet in 30 seconds.
  186.                         Press ESC to end this script.
  187. .
  188.  ALarm 2 NOw
  189.  WAit 150
  190. CLear
  191. MEssage
  192.  
  193.                  You will be logged off PC MagNet in 15 seconds.
  194.                         Press ESC to end this script.
  195. .
  196.  ALarm 0 NOw
  197.  WAit 150
  198.  
  199. Label get_off
  200.  
  201.    REply OFF |                       ; Log off CompuServe.
  202.    WAit quiet 50                     ; Wait for inactivity.
  203.    BYe                               ; Break phone line connection.
  204.  
  205. ENd                                  ; End of script
  206.